<text>Dr N Perry, Department of Computer Sicence, Massey University,Palmerston North, New Zealand. Email: N.Perry@massey.ac.nz</text>
</content>
<content>
<layer>card</layer>
<id>14</id>
<text><span class="style1">ll XCMD & XFCN code resources and HyperCard stacks in this package, referred to as “Cursor Utilities”, are Copyright © 1989, 1991-3 by Nigel Perry. Code resources written using Think C so portions may be © Symantec</span><span class="style21">LICENSE AGREEMENT</span><span class="style1">(Don't panic! For most people the following just requires you to send a postcard to the above address, which will be added to my son’s collection. ShareWare authors must also send me a waiver for their fees. The rest of the gumph is an attempt [probably in vain] to protect myself for certain countries strange laws, and to stop people making money out of my work.)“You,” “your,” and the “user” refers to any person wishing to use this software.“Software” refers to the computer program listed above, together with all codes, techniques, software tools, formats, designs, concepts, methods, ideas, and documentation associated with the computer program. The term also includes all copies of any part of the software and documentation.“Author” refers to the author of this software, Dr Nigel PerryThis software is owned by the author and contains valuable and proprietary information of the author. If you violate any part of this agreement, your right to use this software terminates automatically. In the event of termination of this agreement, you must destroy all copies of this software and derivatives of this software in your possession.This software is being licensed to you as provided by the terms of this agreement.(1) You are permitted to copy and distribute this software unchanged and at no cost, provided that this notice is preserved on all copies, except as excluded below.(2) You may use this software for a period of 14 days for the purposes of evaluation.(3) If you wish to keep this software after 14 days then you must pay the appropriate license fee to the author. This is detailed below in (a) - (d).(4) You may not distribute this software to others unless the license fee has been paid, and then only as part of a derivative work.(5) You may not create any derivative works from this software for distribution unless the license fee has been paid.(6) You may not grant anybody use of this software except as an integral part of the use of a derivative work distributed according to this agreement.(7) You may not reverse engineer, disassemble, decompile, or otherwise attempt to discover the logic or source code to this software.(8) No warranty, either express or implied, is made with respect the softwares performance or fitness for purpose.</span><span class="style21">License Fees</span><span class="style1">(a) If you are not the author of ShareWare products, for your personal use or for inclusion in your own programs which you distribute for free. License fee: A postcard of your home town/region etc.(b) If you are an employee of one of your countries educational institutions or a worker for a registered charity and wish to use this software for your work. License fee: A postcard of your home town/region etc.(c) If you are an author of ShareWare and for your personal use. License fee: a waiver for your ShareWare fees granted by you to the author and a postcard of your home town/region etc.(d) If you are not covered by (a), (b) or (c) then you must contact the author for details of the license fee.</span></text>
</content>
<name>Intro</name>
<script>on openStackset the scroll of cd fld "Copyright" to 0pass openStackend openStackon arrowKey whichif which is "Right" thensend mouseUp to btn "Next"elseif which is not "Left" thenpass arrowKeyend ifend ifend arrowKey</script>
</card>
card_2867.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ormally HyperCard resets the cursor on </span><span class="style12">idle</span><span class="style1"> to the </span><span class="style12">browse</span><span class="style1"> cursor, thus preventing the HyperTalk programmer from making a permanent change to the cursor. The </span><span class="style12">idleCursor</span><span class="style1"> XCMD enables a programmer to set the browse cursor to something other than the pointing hand cursor, thus effecting a permanent cursor change.Usage:    </span><span class="style13">idleCursor </span><span class="style14">cursor</span><span class="style1">where </span><span class="style12">cursor</span><span class="style1"> may either be a cursor name or number. To reinstate the default hand cursor you must use </span><span class="style13">idleCursor "Hand"</span><span class="style1">.</span><span class="style12">(Note: under Finder in systems prior to 7 the automatic subtitution of the hand cursor by another cursor will persist outside of HyperCard.)</span></text>
<text><span class="style12">etCursor</span><span class="style1"> enables the HyperTalk programmer to; set the screen cursor to any location, to constrain the cursor to only follow the horizontal or vertical movement of the mouse, and to decouple the cursor from all mouse movements.</span><span class="style21">WARNING:</span><span class="style1"> (a) this XCMD allows you to violate the </span><span class="style12">Apple User Interface Guidelines </span><span class="style1">(Beware the Apple Thought Police!) (b) this XCMD manipulates (officially…) undocumented globals and may not work under future versions of the system software or on future Macs .</span><span class="style21">USE AT YOUR OWN RISK.</span></text>
</content>
<name></name>
<script></script>
</card>
card_4374.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style21">etting The Cursor Location</span><span class="style1">To set the current location of the cursor use:</span><span class="style13"> setCursor </span><span class="style14">point</span><span class="style1"></span><span class="style13"> setCursor </span><span class="style14">h-coord, v-coord</span><span class="style1">Where </span><span class="style12">h-coord,v-coord</span><span class="style1">, or </span><span class="style12">point</span><span class="style1">, specifies the desired cursor location in </span><span class="style12">card-relative</span><span class="style1"> coordinates, i.e. 0,0 is the top left corner of the card window.Argument errors, such as an off screen location, are reported in </span><span class="style12">the result</span><span class="style1">, which will be </span><span class="style12">empty</span><span class="style1"> if no error occured.</span></text>
</content>
<name></name>
<script></script>
</card>
card_4611.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style21">ontrolling the Cursor/Mouse Relationship</span><span class="style1">The relationship between the cursor and the mouse can be set by passing a sub-function code to </span><span class="style12">setCursor</span><span class="style1">. Whatever the relationship between the cursor & mouse, its absolute location can always be set using </span><span class="style12">setCursor</span><span class="style1">. (</span><span class="style21">Note</span><span class="style1">: Only the first four characters of sub-functions are significant. Invalid functions return an error in </span><span class="style12">the result</span><span class="style1">.)</span><span class="style13">setCursor horizontal</span><span class="style1">     Constrain the cursor to only follow horizontal mouse movement.</span><span class="style13">setCursor vertical</span><span class="style1">     Constrain the cursor to only follow vertical mouse movement.</span></text>
</content>
<name></name>
<script></script>
</card>
card_2516.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style21">Controlling the Cursor/Mouse Relationship</span><span class="style1"></span><span class="style13">setCursor free</span><span class="style1">     Decouple the cursor from the mouse, that is remove all cursor     control from the user. </span><span class="style11">BE CAREFUL!</span><span class="style1"></span><span class="style13">setCursor mouse</span><span class="style1">     Re-couple to the mouse and/or unconstrain the cursor.</span><span class="style13">setCursor reset</span><span class="style1">     Re-couple the cursor to the mouse </span><span class="style12">and</span><span class="style1"> return it to the location     where it was when decoupled. Same as </span><span class="style12">setCursor mouse</span><span class="style1"> if the     cursor was only constrained.</span></text>
</content>
<name></name>
<script></script>
</card>
card_4178.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpsetCursor loc of button "Demo 2"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>143</left>
<top>140</top>
<right>243</right>
<bottom>162</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Demo 2</name>
<script>on mouseUpSetCursor freeSetCursor 0,0wait 180SetCursor width of the card window, height of the card windowwait 120SetCursor resetend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>10</top>
<right>404</right>
<bottom>32</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show Scripts</name>
<script>on mouseUpif the short name of me is "Show Scripts" thenshowScriptselsehideScriptsend ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>42</top>
<right>416</right>
<bottom>240</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Scripts</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Page 6 of 8</text>
</content>
<content>
<layer>background</layer>
<id>9</id>
<text>Examples (1)</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text><span class="style1">f you push button “Demo 1”, the cursor will jump to “Demo 2”.If you push button “Demo2” the cursor is freed from the mouse and jumps to the top left corner of the card – try moving the mouse… After a few seconds the cursor will jump to the bottom right, pause again and then return back to the button.</span><span class="style21">WARNING</span><span class="style1">: If you abort the above demo by typing “Command-.” your cursor and mouse will be decoupled, making life rather difficult! To avoid embarrassment to those of you who are bound to try it, the </span><span class="style12">closeCard</span><span class="style1"> handler issues a </span><span class="style12">setCursor mouse</span><span class="style1">.</span></text>
</content>
<name></name>
<script>on closeCardidleCursor "hand" -- just in casesetCursor mouse -- dittohideScriptspass closeCardend closeCard</script>
</card>
card_4967.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpSetCursor mousidleCursor "Hand"show cd btn "Hori"show cd btn "Vert"end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>289</left>
<top>180</top>
<right>348</right>
<bottom>203</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Wander</name>
<script>on mouseWithinput the mouseH + random(3) - 2 into hput the mouseV + random(3) - 2 into vSetCursor h,vend mouseWithin</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>289</left>
<top>205</top>
<right>348</right>
<bottom>228</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Bounce</name>
<script>on mouseEnterglobal hdelta, vdeltaput 1 into hdeltaput 1 into vdeltaend mouseEnteron mouseWithinglobal hdelta, vdeltaput the mouseH into hput the mouseV into vif (hdelta = 1) and (h = right of me - 1) then put -1 into hdeltaelse if (hdelta = -1) and (h = left of me)thenput 1 into hdeltaend ifif (vdelta = 1) and (v = bottom of me - 1) then put -1 into vdeltaelse if (vdelta = -1) and (v = top of me)thenput 1 into vdeltaend ifSetCursor h+hdelta,v+vdeltaend mouseWithin</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>42</top>
<right>416</right>
<bottom>240</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Scripts</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>10</top>
<right>404</right>
<bottom>32</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show Scripts</name>
<script>on mouseUpif the short name of me is "Show Scripts" thenshowScriptselsehideScriptsend ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Page 7 of 8</text>
</content>
<content>
<layer>background</layer>
<id>9</id>
<text>Examples (2)</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text><span class="style1">he three buttons below demonstrate the axis constraining functions of </span><span class="style12">setCursor</span><span class="style1">. Once you press the left arrow button the only other button you will be able to press is the down arrow one, after pressing that one you must press the mouse button to get your cursor back to normal:</span><span class="style12"></span><span class="style1">The button handlers also set the cursor using </span><span class="style12">idleCursor</span><span class="style1">. This ensures the cursor change remains, even if HyperCard idles.Finally, try placing the cursor over these buttons:</span></text>
</content>
<name></name>
<script>on closeCardidleCursor "hand" -- just in casesetCursor mouse -- dittohideScriptspass closeCardend closeCard</script>
</card>
card_5889.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style21">ersion History</span><span class="style1"></span><span class="style21">1.0 Feb 93</span><span class="style1">: The </span><span class="style12">setCursor</span><span class="style1"> XCMD was first released in 1989 as part of the “XCMD Miscellany” stack. For “Cursor Utilities” it has been updated, adding the vertical & horizontal constraining options and handling of screen sizes larger than the card. The constraining options were requested by Patrick Haggard, who also acted as beta tester – thanks. The </span><span class="style12">idleCursor</span><span class="style1"> XCMD was earlier released as part of the </span><span class="style12">Pictoid Package</span><span class="style1"> (see below) and has been included as it complements </span><span class="style12">setCursor</span><span class="style1">.</span><span class="style21">Also By The Same Author</span><span class="style1">The following are a selection of other packages I have released. Most of these should be available from the usual ftp sites.</span><span class="style21">Pictoid Package</span><span class="style1">     This package supports the display of B&W or colour pictures and QuickTime™ movies in HyperCard. The pictures/movies are displayed in borderless any shape windows, called </span><span class="style12">pictoids</span><span class="style1">, which makes them appear as though drawn directly on the card. Each pictoid can also be assigned scripts in a similar way to buttons, enabling picture & movie buttons to be constructed. Full control over movie playback is provided from HyperTalk. (Version 2 is under development which adds support for movie controllers and movie event, such as rate change or specified time point, triggered HyperTalk scripts.) The package also includes </span><span class="style12">Sticky Buttons</span><span class="style1">, which are buttons that can be imbedded in text and move with it if scrolled, and a number of other useful utilities.</span><span class="style21">Colour Text Package</span><span class="style1">     This package supports the use of coloured text in HyperCard fields.</span><span class="style21">Print To QuickTime™</span><span class="style1">     This is an extension for B. Raoult's </span><span class="style12">Print2Pict</span><span class="style1"> printer driver. It enables just about any (I don't use many Microsoft products…) application that can print to produce QuickTime™ movies.</span></text>
</content>
<name></name>
<script>on openCardset the scroll of cd fld "info" to 0pass openCardend openCard</script>
